Program tugas;
uses crt;
var pilih : integer;
procedure tambah;
var x,a,b : integer;
begin
     clrscr;
     write('Masukkan bilangan pertama : '); readln(a);
     write('masukkan bilangan kedua   : '); readln(b);
     x := a+b;
     writeln;
     write('Hasil dari bilangan pertama + kedua adalah : ',x);
     readln;
end;
procedure kurang;
var y,c,d : integer;
begin
     clrscr;
     write('Masukkan bilangan pertama : '); readln(c);
     write('masukkan bilangan kedua   : '); readln(d);
     y := c-d;
     writeln;
     write('Hail dari bilangan pertama - kedua adalah : ',y);
     readln;
end;
begin
repeat
     clrscr;
     writeln('       MENU UTAMA        ');
     writeln('=========================');
     writeln('1. Menghitung Penjumlahan');
     writeln('2. Menghitung Pengurangan');
     writeln('3. Keluar');
     writeln;
     write('Masukkan pilihan : '); readln(pilih);
     case pilih of
     1 : tambah;
     2 : kurang;
     end;
until pilih = 3;
end.